home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / aminet / htmlcat / rexx / dopus_htmlcat.rexx
OS/2 REXX Batch file  |  1997-08-27  |  2KB  |  99 lines
  1. /*
  2.  
  3.     DOPUS HTMLCAT script
  4.  
  5.     (c) Jimy Productions
  6.  
  7.  
  8.     Création de pages HTML multi-répertoires à paritr de Dopus 5.11+
  9.  
  10. */
  11.  
  12.  
  13. ADDRESS "DOPUS.1"
  14. OPTIONS RESULTS
  15. /*
  16. TRACE("NORMAL")
  17. TRACE("RESULTS")
  18. */
  19.     LISTER QUERY SOURCE
  20.     sourcelist = RESULT
  21.  
  22. /* ARE SOME DIRS SELECTED */
  23.  
  24.     LSITER QUERY sourcelist NUMSELDIRS
  25.     numdir = RESULT
  26.     IF numdir = 0 THEN EXIT(0)
  27.  
  28. /* Get ROOTDIR */
  29.  
  30.     LISTER QUERY sourcelist PATH
  31.     rotdir = result
  32.  
  33. /* Get list of dirs */
  34.  
  35.     LISTER QUERY sourcelist SELDIRS "|"
  36.     Listdir = RESULT
  37.  
  38.     Bool_Arret = FALSE
  39.     Bool_LastFile = FALSE
  40.     PosCut = 1
  41.  
  42. /* Misc */
  43.     
  44.     dopus request '"Voulez vous utiliser le nom du répertoire comme titre? (Si non, un titre vous sera demandé à chaque fois)" Oui|Non'
  45.     asktitr = RC
  46.  
  47.     dopus request '"Voulez vous utiliser le nom du répertoire comme préfixe de nom de fichier html? (Si non, un prefixe vous sera demandé à chaque fois)" Oui|Non'
  48.     askpref = RC
  49.  
  50.     dopus request '"Que voulez vous créer" Les fichiers HTML|Les vignettes|Les deux'
  51.     askcreer = RC
  52.  
  53.     ADDRESS "HTMLCAT2"
  54.     SET ROOTDIR rotdir
  55.  
  56.  
  57. DO WHILE Bool_LastFile = FALSE
  58.  
  59.     ListCut=POS('"|"',Listdir,PosCut)
  60.  
  61.     IF ListCut = 0 THEN DO
  62.         Bool_LastFile = TRUE
  63.         ListCut = LENGTH(Listdir)
  64.     END
  65.  
  66.     Length_FileName = ListCut - PosCut + 1
  67.     dirs = SUBSTR(Listdir,PosCut,Length_FileName)
  68.  
  69.     AnteCut = PosCut
  70.     PosCut = ListCut+2
  71.  
  72.     ADDRESS "HTMLCAT2"
  73.     SET PICDIR dirs||'/'
  74.  
  75.  
  76.     gal = dirs
  77.     IF asktitr = 0 THEN DO
  78.         ADDRESS "DOPUS.1"    
  79.         dopus getstring '"Nom de la gallery pour le répertoire '||dirs||'" 50 "" OK'
  80.         gal = RESULT
  81.     END
  82.  
  83.     html = dirs
  84.     IF askpref = 0 THEN DO
  85.         ADDRESS "DOPUS.1"    
  86.         dopus getstring '"Nom des fichiers HTML pour le répertoire '||dirs||'" 50 "" OK'
  87.         html = RESULT
  88.     END
  89.  
  90.     ADDRESS "HTMLCAT2"
  91.     SET GALLERYNAME gal
  92.     SET HTMLPATTERN html
  93.  
  94.     IF askcreer = 1 | askcreer = 0 THEN MAKEHTML
  95.  
  96.     IF askcreer = 2 | askcreer = 0 THEN MAKETHUMBNAILS
  97.  
  98. END
  99.